home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 1
/
CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso
/
Aminet
/
misc
/
amag
/
AM95064a.lha
/
HD-Installation
< prev
next >
Wrap
Text File
|
1994-12-15
|
2KB
|
100 lines
; OLDTIMER Harddisk-Installation
(set name
(askdir
(prompt "Bitte wählen Sie das Verzeichnis, in dem das OLDTIMER-Verzeichnis angelegt werden soll.")
(help "Nix.")
(default "SYS:")
)
)
(if (< (getdiskspace name) 7000000)
(abort "Auf diesem Laufwerk ist nicht genug Platz!! "
"Es werden mindestens 7MB freier Festplattenspeicher "
"benötigt, um die Installation durchführen zu können!")
)
(set sstr (substr name (- (strlen name) 1) 1))
(if (or (= sstr "/") (= sstr ":")) (set dname (cat name "Oldtimer")) (set dname (cat name "/Oldtimer")))
(makedir dname
(prompt "Verzeichnis \""dname"\" wird angelegt.")
(help "Nix.")
(confirm)
)
(copyfiles (source "AUTO1:s/Oldtimer.info") (dest name))
(copyfiles
(prompt "Installiere Diskette 1 von OLDTIMER.")
(help @copyfiles-help)
(source "AUTO1:")
(dest dname)
(pattern "#?.s??")
)
(copyfiles (source "AUTO1:Oldtimer") (dest dname))
(copyfiles (source "AUTO1:S/StartOldtimer") (dest dname))
(copyfiles (source "AUTO1:S/StartOldtimer.info") (dest dname))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "Spiele.Dat"))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "GAME1.GAM"))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "GAME2.GAM"))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "GAME3.GAM"))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "GAME4.GAM"))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "GAME5.GAM"))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "GAME6.GAM"))
(copyfiles (source "AUTO1:Highs.Dat") (dest dname) (newname "GAME7.GAM"))
(copyfiles
(source "AUTO2:")
(dest dname)
(all)
)
(copyfiles
(source "AUTO3:")
(dest dname)
(all)
)
(copyfiles
(source "AUTO4:")
(dest dname)
(all)
)
(copyfiles
(source "AUTO5:")
(dest dname)
(all)
)
(copyfiles
(source "AUTO6:")
(dest dname)
(all)
)
(copyfiles
(source "AUTO7:")
(dest dname)
(all)
)
(copyfiles
(source "AUTO8:")
(dest dname)
(all)
)